home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / ldos_demo / examples / ldos / lstr.amos / lstr.amosSourceCode
Encoding:
AMOS Source Code  |  1992-01-18  |  554 b   |  22 lines
  1. ' Small demo of how to get text-lines
  2. ' A bit faster than Chr$(Peek()) ..... 
  3. Screen Open 1,640,256,2,Hires
  4. Reserve As Work 10,1024 : ST=Start(10)
  5.  Extension_10_0006 1,":textfiler/blink.doc",0
  6. A=1
  7. While A
  8.    D=Free
  9.    A= Extension_10_0024(1,ST,1024)
  10.    _STOP=ST+A
  11.    While A>CNT
  12.       A$= Extension_10_006C(ST+CNT To _STOP)
  13.       CNT=CNT+Len(A$)+1
  14.       Print A$
  15.    Wend 
  16.    LI=Peek(ST+A) : Rem Was there a LF after the last byte, or was it cut in the middle of the line? 
  17.    If LI<>10
  18.       Cup : Print A$;
  19.    End If 
  20.    CNT=0
  21. Wend 
  22.  Extension_10_0016 1